home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 26 / 3 / DISK2631.ZIP / EXAMP1.ZIP / RMEX230.BAS < prev    next >
BASIC Source File  |  1990-04-13  |  395b  |  15 lines
  1. OPEN "RANDOM.DTA" FOR RANDOM AS #1 LEN = 12
  2. MAP #1, 10 AS FInputName$$, 2 AS FLuckyNumber$$
  3. FOR Record% = 1 TO 3
  4.   INPUT "Name"; FInputName$$
  5.   INPUT "Lucky Number"; Number%
  6.   FLuckyNumber$$ = MKI$(Number%)
  7.   PUT #1, Record%
  8. NEXT Record%
  9. PRINT:PRINT "THE DATA STORED WAS: "
  10. FOR Record% = 1 TO 3
  11.   GET #1, Record%
  12.   PRINT FInputName$$; CVI(FLuckyNumber$$)
  13. NEXT Record%
  14. CLOSE #1
  15. END